2 A = ABS( INT(A)): IF A >65535 THEN PRINT "<CTRL-G>?TOO BIG FOOL! ERROR": END
3 X = 2206:A$ = RIGHT$("0000" + STR$(A),5): FOR I = 0 TO LEN(A$) -1: POKE X -I, ASC( MID$ (A$, LEN(A$) -I,1)): NEXT : & 00000: RETURN
4 REM GOSUB TO 2 AND IT WILL POKE IN YOUR LINE TO BE RESTORED AT AND RESTORE IT THERE. (DOES THAT MAKE SENSE??)
5 REM DON'T SCREW AROUND BEFORE LINE 5
6 REM =-----------------------=
7 REM =-----------------------=
10 TEXT : HOME : PRINT " HERE IS THE PROGRAM 'RESTORE@'. YOU <CTRL-J>JUST GOSUB TO 14000 AND IT WILL SET UP <CTRL-J>THE ROUTINE THAT WILL ALLOW YOU TO"
20 PRINT "<CTRL-J>RESTORE DATA IN A PROGRAM AT A CERTAIN <CTRL-J>LINE NUMBER. YOU JUST TYPE &(LINE <CTRL-J>NUMBER) OR USE THE SUBROUTINE AT THE <CTRL-J>BEGINNING OF THIS PROGRAM."
30 PRINT "<CTRL-J> LATER, TMH"
40 END
14000 REM RESTORE@
14005 REM (IN POKES TO AVOID DATA CONFLICTS)
14010 REM JUST USE AMPERSAND (&) WITH LINE NUMBER TO RESTORE AT BEHIND IT
14015 HIMEM: 37300: POKE 1014,185: POKE 1015,145
14017 I = 37305
14020 POKE I,32: POKE I +1,12: POKE I +2,218: POKE I +3,32: POKE I +4,26: POKE I +5,214: POKE I +6,144: POKE I +7,22: POKE I +8,165: POKE I +9,155:I = I +10
14025 POKE I,24: POKE I +1,105: POKE I +2,4: POKE I +3,133: POKE I +4,125: POKE I +5,165: POKE I +6,156: POKE I +7,105: POKE I +8,0: POKE I +9,133: POKE I +10,126:I = I +11
14030 POKE I,165: POKE I +1,80: POKE I +2,133: POKE I +3,123: POKE I +4,165: POKE I +5,81: POKE I +6,133: POKE I +7,124: POKE I +8,96: POKE I +9,162: POKE I +10,90: POKE I +11,76: POKE I +12,18: POKE I +13,212
14040 RETURN
63999 REM <CTRL-J><CTRL-J>
65535 REM <CTRL-M>BY CHRIS KOERITZ<CTRL-M>RT. 5, BOX 331B<CTRL-M>CHARLOTTESVILLE, VA 22901<CTRL-M>WRITE IF YOU HAVE PROBLEMS<CTRL-M>
